home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / supr3.dir / 00072_Script_72 < prev    next >
Text File  |  1994-11-11  |  880b  |  26 lines
  1. ON STARTMOVIE
  2.   global Girl1,Girl2,gBlockList,gGirlList,gEntranceList,stepNo,totalHPoint,switchYesNo,gMovieList
  3.   put 5 into stepNo
  4.   put totalHpoint into field "Hpoint"
  5.   set gBlockList = [20,21,22,23,24,25,26,29,30,31,32,33]
  6.   set gEntranceList = [35]
  7.   set gGirlList = [20,21,22,23,24,25,26]
  8.   set gMovieList = [20:1,21:2,22:3,23:4,24:5,25:6,26:7]
  9.   set girlsblockList = [13,20,21,22,23,24,25,26,29,30,31,32,33]
  10.   puppetSprite 13, true
  11.   PUPPETSPRITE 14, TRUE
  12.   set girl1 = birth(script "aGirl", 24, 75, 27, 79, girlsblockList)
  13.   set girl2 = birth(script "aGirl", 25, 58, 28, 74, girlsblockList)
  14.   updatestage
  15.   set the keyDownScript to "incHpoint"
  16. END
  17.  
  18. on incHpoint
  19.   global totalHpoint
  20.   if the commandDown and the optionDown and (the keyCode = 4) then
  21.     put totalHpoint + 300 into totalHpoint
  22.     put totalHpoint into field "Hpoint"
  23.   end if
  24. end
  25.  
  26.